home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / otohime / src / lib / delay.asm next >
Assembly Source File  |  1994-06-01  |  10KB  |  412 lines
  1. ;            PCM SOUND DELAY
  2. ;
  3. ;        call from F-BASIC386 or High C
  4. ;    callm address,varptr(sndata),varptr(param),varptr(workarea)
  5. ;    void  DELAY(*snddata,*param,*workarea)
  6. ;
  7. ;
  8. ;            1990 3  Hiroshi TODA
  9. ;
  10. ;            1993 12 High C 用に改造
  11. ;
  12. ;    param:del,mix1,mix2,md1,sp1,ang1,nd2,sp2,ang2
  13. ;    work area = 256Byte
  14. ; 
  15. ;
  16.  
  17.     .386p
  18.  
  19.  
  20. param    struc
  21.  
  22.     dd    ?
  23.     dd    ?
  24. sndadd    dd    ?        ; snd.data address
  25. paradd    dd    ?        ; para. address
  26. wadd    dd    ?         ; work address
  27.  
  28. param   ends
  29.  
  30.  
  31. work    struc
  32.  
  33. ;data area
  34.  
  35. del    dd    ?        ; delay Bite
  36. mix1    dd    ?        ; main mix rate
  37. mix2    dd    ?        ; delay mix rate
  38. md1    dd    ?        ; modulation1
  39. sp1    dd    ?        ; speed1 (90 = 10000H)
  40. ang1    dd    ?        ; angle1
  41. md2    dd    ?        ; modulation2
  42. sp2    dd    ?        ; speed2 (90 = 10000H)
  43. ang2    dd    ?        ; angle2
  44.  
  45. ;work area
  46.  
  47. point1    dd    ?        ; ov.sampling point (decimal)
  48. point2    dd    ?        ; ov.sampling point (integer)
  49. buf1    dd    ?        ; sampling add buf.
  50.  
  51. ;    これ以下 1995 1 に追加
  52. sourceStart    dd    ?        ; source data の 開始アドレス
  53. sourceEnd    dd    ?        ; source data の 終了アドレス
  54.  
  55. work    ends
  56.  
  57.  
  58. cseg    segment    dword public use32 'CODE'
  59.     assume    cs:cseg,ds:cseg
  60.  
  61.     public    sndDelay
  62.     db    'sndDelay',8
  63. sndDelay    proc    near
  64.     push    ebp
  65.     mov    ebp,esp
  66.     push    esi
  67.     push    edi
  68.     push    ebx
  69.  
  70.     mov    esi,[ebp].wadd        ; esi <-- work area top add
  71.     mov    edi,[ebp].sndadd    ; edi <-- snd.data add.
  72.     mov    ecx,[ebp].paradd    ; ecx <-- para. add.
  73.     xor    edx,edx            ; edx=count
  74. main01:    mov    eax,[ecx][edx*4]    ; para. --> work area
  75.     mov    [esi][edx*4],eax
  76.     inc    edx
  77.     cmp    edx,9
  78.     jb    main01
  79.  
  80.     mov    edx,edi
  81.     add    edx,32
  82.     mov    [esi].sourceStart,edx    ; sourceStart = source start address
  83.     add    edx,[edi+12]
  84.     mov    [esi].sourceEnd,edx        ; sourceEnd = source end address
  85.  
  86.     mov    ecx,[edi+12]        ; length
  87. ;    sub    ecx,[esi].del
  88.     cmp    ecx,0
  89.     je    mainE
  90. ;    jbe    mainE                ; jb を jbe に変更 1993 12
  91.     add    edi,32
  92.  
  93. main02:
  94.     mov    eax,edi
  95.     sub    eax,[esi].del        ; eax = delay point
  96.     mov    [esi].point2,eax    ; ov.sampling point cal.
  97.     xor    eax,eax
  98.     mov    [esi].point1,eax
  99.  
  100.     mov    eax,[esi].ang1        ; phase shift cal.
  101.     call    sin            ; eax = sin(eax)*10000H
  102.     imul    dword ptr [esi].md1
  103.     mov    [esi].buf1,eax
  104.     mov    eax,[esi].ang2
  105.     call    sin            ; eax = sin(eax)*10000H
  106.     imul    dword ptr [esi].md2
  107.     add    eax,[esi].buf1
  108.     cdq
  109.     add    [esi].point1+2,eax
  110.     adc    word ptr [esi].point2+2,dx
  111.  
  112.     mov    eax,[esi].point2    ; source start～end check
  113.     cmp    eax,[esi].sourceEnd
  114.     jae    main021
  115.     cmp    eax,[esi].sourceStart
  116.     jae    main03
  117. main021:
  118.     xor    eax,eax
  119.     jmp    main04
  120. main03:
  121.     lea    eax,[esi].point1    ; over sampling
  122.     call    smp
  123. main04:
  124.     imul    eax,[esi].mix2        ; mix
  125.     mov    [esi].buf1,eax
  126.  
  127. ;    mov    ebx,[esi].del
  128. ;    mov    al,[edi][ebx]
  129.     mov al,[edi]
  130.     and    eax,0ffH
  131.     cmp    eax,128
  132.     jb    main05
  133.     mov    edx,eax
  134.     mov    eax,128
  135.     sub    eax,edx
  136. main05:
  137.     imul eax,[esi].mix1
  138.     add    eax,[esi].buf1
  139.     sar    eax,8
  140.     js    main07            ; eax --> pcm data
  141.     je    main07
  142.     cmp    eax,128            ; +
  143.     jb    main08
  144.     mov    eax,127
  145.     jmp    main08
  146. main07:    mov    edx,eax            ; -
  147.     mov    eax,128
  148.     sub    eax,edx
  149.     cmp    eax,256-1    ; data255はloopStopの意味があるから除外 1993 12
  150.     jb    main08
  151.     mov    eax,255-1    ; data255はloopStopの意味があるから除外 1993 12
  152. main08:
  153. ;    mov    [edi][ebx],al
  154.     mov    [edi],al
  155.  
  156.     mov    eax,[esi].sp1
  157.     add    [esi].ang1,eax
  158.     mov    eax,[esi].sp2
  159.     add    [esi].ang2,eax
  160.     inc    edi
  161.     dec    ecx
  162.     jne    main02
  163.  
  164. mainE:
  165.     pop    ebx
  166.     pop    edi
  167.     pop    esi
  168.     mov    esp,ebp
  169.     pop    ebp
  170.     ret
  171.  
  172. ;    OVER SAMPLING for PCM DATA(8bit)
  173. ;input    eax = 64bit(32bit/decimal,32bit/integer) data address(ds:)
  174. ;output    eax = over sampring data ( 32bit sign (-128 -- +127) )
  175.  
  176. smp:    push    ebx
  177.     push    ecx
  178.     push    edx
  179.     push    esi
  180.     push    edi
  181.     mov    ebx,[eax]        ; ebx = decimal
  182.     mov    esi,[eax+4]        ; esi = integer
  183.     shr    ebx,24            ; ebx --> 8bit
  184.     jne    smp00
  185.  
  186.     mov    al,[esi]        ; decimal=0
  187.     and    eax,0ffH
  188.     cmp    eax,128
  189.     jb    smp0A
  190.     mov    edx,eax
  191.     mov    eax,128
  192.     sub    eax,edx
  193. smp0A:    jmp    smp06
  194.  
  195. smp00:
  196.     mov    eax,[esi-1]        ; 周囲がみな無信号ならノイズを出さないよう直接0を返す
  197.     cmp    eax,80808080h
  198.     jne    smp0B
  199.     xor    eax,eax
  200.     jmp    smp06
  201.  
  202. smp0B:
  203.     call    smp01
  204. smp01:    pop    edi
  205.     add    edi,smptb-smp01        ; edi = table point
  206.  
  207.     mov    al,[esi]
  208.     and    eax,0ffH
  209.     cmp    eax,128
  210.     jb    smp02
  211.     mov    edx,eax
  212.     mov    eax,128
  213.     sub    eax,edx
  214. smp02:    add    eax,128
  215.     mul    byte ptr cs:[edi][ebx]
  216.     mov    ecx,eax
  217.  
  218.     mov    al,[esi-1]
  219.     and    eax,0ffH
  220.     cmp    eax,128
  221.     jb    smp03
  222.     mov    edx,eax
  223.     mov    eax,128
  224.     sub    eax,edx
  225. smp03:    add    eax,128
  226.     mul    byte ptr cs:[edi][ebx+256]
  227.     sub    ecx,eax
  228.  
  229.     mov    eax,ebx            ; ebx = 256 - ebx
  230.     mov    ebx,256
  231.     sub    ebx,eax
  232.  
  233.     mov    al,[esi+1]
  234.     and    eax,0ffH
  235.     cmp    eax,128
  236.     jb    smp04
  237.     mov    edx,eax
  238.     mov    eax,128
  239.     sub    eax,edx
  240. smp04:    add    eax,128
  241.     mul    byte ptr cs:[edi][ebx]
  242.     add    ecx,eax
  243.  
  244.     mov    al,[esi+2]
  245.     and    eax,0ffH
  246.     cmp    eax,128
  247.     jb    smp05
  248.     mov    edx,eax
  249.     mov    eax,128
  250.     sub    eax,edx
  251. smp05:    add    eax,128
  252.     mul    byte ptr cs:[edi][ebx+256]
  253.     sub    ecx,eax
  254.     sub    ecx,128*256
  255.     sar    ecx,8
  256.     mov    eax,ecx
  257.  
  258. smp06:    pop    edi
  259.     pop    esi
  260.     pop    edx
  261.     pop    ecx
  262.     pop    ebx
  263.     ret    
  264.  
  265. smptb db 255,255,255,254,254,253,253,252
  266.     db    252,251,251,250,249,249,248,248
  267.     db    247,246,246,245,244,244,243,243
  268.     db    242,241,240,240,239,238,238,237
  269.     db    236,236,235,234,233,233,232,231
  270.     db    230,229,229,228,227,226,225,225
  271.     db    224,223,222,221,221,220,219,218
  272.     db    217,216,215,214,214,213,212,211
  273.     db    210,209,208,207,206,205,204,204
  274.     db    203,202,201,200,199,198,197,196
  275.     db    195,194,193,192,191,190,189,188
  276.     db    187,186,185,184,183,182,181,180
  277.     db    179,178,177,176,175,174,172,171
  278.     db    170,169,168,167,166,165,164,163
  279.     db    162,161,160,158,157,156,155,154
  280.     db    153,152,151,150,148,147,146,145
  281.     db    144,143,142,141,139,138,137,136
  282.     db    135,134,133,132,130,129,128,127
  283.     db    126,125,123,122,121,120,119,118
  284.     db    117,115,114,113,112,111,110,108
  285.     db    107,106,105,104,103,101,100,099
  286.     db    098,097,096,094,093,092,091,090
  287.     db    089,087,086,085,084,083,082,080
  288.     db    079,078,077,076,075,073,072,071
  289.     db    070,069,068,067,065,064,063,062
  290.     db    061,060,058,057,056,055,054,053
  291.     db    052,051,049,048,047,046,045,044
  292.     db    043,042,040,039,038,037,036,035
  293.     db    034,033,032,030,029,028,027,026
  294.     db    025,024,023,022,021,020,019,018
  295.     db    016,015,014,013,012,011,010,009
  296.     db    008,007,006,005,004,003,002,001
  297.  
  298.     db    000,000,001,001,001,002,002,002
  299.     db    003,003,003,003,004,004,004,005
  300.     db    005,005,005,006,006,006,006,007
  301.     db    007,007,007,008,008,008,008,009
  302.     db    009,009,009,009,010,010,010,010
  303.     db    010,011,011,011,011,011,011,012
  304.     db    012,012,012,012,012,013,013,013
  305.     db    013,013,013,013,014,014,014,014
  306.     db    014,014,014,014,014,015,015,015
  307.     db    015,015,015,015,015,015,015,015
  308.     db    015,016,016,016,016,016,016,016
  309.     db    016,016,016,016,016,016,016,016
  310.     db    016,016,016,016,016,016,016,016
  311.     db    016,016,016,016,016,016,016,016
  312.     db    016,016,016,016,016,016,016,016
  313.     db    016,016,016,016,016,016,016,016
  314.     db    016,016,016,016,016,016,016,016
  315.     db    016,016,015,015,015,015,015,015
  316.     db    015,015,015,015,015,015,015,015
  317.     db    014,014,014,014,014,014,014,014
  318.     db    014,014,014,013,013,013,013,013
  319.     db    013,013,013,013,012,012,012,012
  320.     db    012,012,012,012,012,011,011,011
  321.     db    011,011,011,011,011,010,010,010
  322.     db    010,010,010,010,009,009,009,009
  323.     db    009,009,009,008,008,008,008,008
  324.     db    008,008,007,007,007,007,007,007
  325.     db    007,006,006,006,006,006,006,005
  326.     db    005,005,005,005,005,004,004,004
  327.     db    004,004,004,003,003,003,003,003
  328.     db    003,002,002,002,002,002,002,001
  329.     db    001,001,001,001,001,000,000,000
  330.  
  331. ;    SIN
  332. ;input    eax = angle ( rate 10000H = 3.14/2 )
  333. ;output    eax = sin ( eax ) * 10000H
  334.  
  335. sin:    push    ebx
  336.     push    ecx
  337.     push    edx
  338.     mov    edx,eax
  339.     and    edx,30000H
  340.     cmp    edx,10000H
  341.     je    sin01
  342.     cmp    edx,30000H
  343.     je    sin01
  344.     jmp    sin02
  345. sin01:    mov    bx,ax
  346.     mov    ax,0ffffH
  347.     sub    ax,bx
  348. sin02:    and    eax,0ffffH
  349.     call    sin03
  350. sin03:    pop    ecx
  351.     add    ecx,sintb-sin03
  352.     push    eax
  353.     shr    eax,8
  354.     mov    bx,cs:[ecx][eax*2]
  355.     mov    cx,cs:[ecx+2][eax*2]
  356.     and    ebx,0ffffH
  357.     and    ecx,0ffffH
  358.     sub    ecx,ebx
  359.     pop    eax
  360.     and    eax,0ffH
  361.     imul    eax,ecx
  362.     shr    eax,8
  363.     add    eax,ebx
  364.     cmp    edx,20000H
  365.     jb    sin04
  366.     mov    ebx,eax
  367.     xor    eax,eax
  368.     sub    eax,ebx
  369. sin04:    pop    edx
  370.     pop    ecx
  371.     pop    ebx
  372.     ret
  373.  
  374. sintb dw 00000H,00192H,00324H,004B6H,00648H,007DAH,0096CH,00AFDH
  375.     dw    00C8FH,00E21H,00FB2H,01143H,012D5H,01465H,015F6H,01787H
  376.     dw    01917H,01AA7H,01C37H,01DC6H,01F56H,020E5H,02273H,02402H
  377.     dw    0250FH,0271DH,028AAH,02A37H,02BC3H,02D4FH,02EDBH,03066H
  378.     dw    031F1H,0337BH,03505H,0368EH,03816H,0399EH,03B26H,03CADH
  379.     dw    03E33H,03FB9H,0413EH,042C3H,04447H,045CAH,0474CH,048CEH
  380.     dw    04A4FH,04BD0H,04D4FH,04ECEH,0504DH,051CAH,05347H,054C3H
  381.     dw    0563EH,057B8H,05931H,05AAAH,05C21H,05D98H,05F0EH,06083H
  382.     dw    061F7H,0636AH,064DCH,0664DH,067BDH,0692CH,06A9AH,06C07H
  383.     dw    06D73H,06EDEH,07048H,071B1H,07319H,0747FH,075E5H,07749H
  384.     dw    078ACH,07A0FH,07B64H,07CCFH,07E2EH,07F8DH,080E7H,08242H
  385.     dw    0839BH,084F3H,0864AH,087A0H,088F5H,08A48H,08B99H,08CEAH
  386.     dw    08E39H,08F86H,090D3H,0921EH,09367H,094AFH,095F6H,0973BH
  387.     dw    0987FH,099C1H,09B02H,09C41H,09D7FH,09EBBH,09FF6H,0A12FH
  388.     dw    0A266H,0A39CH,0A4D1H,0A604H,0A735H,0A865H,0A993H,0AABFH
  389.     dw    0ABEAH,0AD13H,0AE3BH,0AF60H,0B085H,0B1A7H,0B2C8H,0B3E6H
  390.     dw    0B504H,0B61FH,0B739H,0B851H,0B967H,0BA7BH,0BB8EH,0BC9FH
  391.     dw    0BDAEH,0BEBBH,0BFC6H,0C0D0H,0C1D7H,0C2DDH,0C3E1H,0C4E3H
  392.     dw    0C5E3H,0C6E1H,0C7DDH,0C8D7H,0C9D0H,0CAC6H,0CBBBH,0CCADH
  393.     dw    0CD9EH,0CE8CH,0CF79H,0D063H,0D14CH,0D232H,0D317H,0D3F9H
  394.     dw    0D4DAH,0D5B8H,0D695H,0D76FH,0D847H,0D91DH,0D9F1H,0DAC3H
  395.     dw    0DB93H,0DC60H,0DD2CH,0DDF5H,0DEBDH,0DF82H,0E045H,0E106H
  396.     dw    0E1C4H,0E281H,0E33BH,0E3F3H,0E4A9H,0E55DH,0E60EH,0E6BDH
  397.     dw    0E76AH,0E815H,0E8BEH,0E964H,0EA08H,0EAAAH,0EB4AH,0EBE7H
  398.     dw    0EC82H,0ED1BH,0EDB1H,0EE45H,0EED7H,0EF67H,0EFF4H,0F07FH
  399.     dw    0F108H,0F18EH,0F212H,0F293H,0F313H,0F390H,0F40AH,0F483H
  400.     dw    0F4F9H,0F56CH,0F5DDH,0F64CH,0F6B9H,0F723H,0F78AH,0F7F0H
  401.     dw    0F852H,0F8B3H,0F911H,0F96DH,0F9C6H,0FA1DH,0FA72H,0FAC4H
  402.     dw    0FB13H,0FB60H,0FBABH,0FBF4H,0FC3AH,0FC7DH,0FCBEH,0FCFDH
  403.     dw    0FD39H,0FD73H,0FDAAH,0FDDFH,0FE12H,0FE42H,0FE6FH,0FE9AH
  404.     dw    0FEC3H,0FEE9H,0FF0DH,0FF2EH,0FF2EH,0FF4DH,0FF83H,0FF9BH
  405.     dw    0FFB0H,0FFC2H,0FFD2H,0FFE0H,0FFEBH,0FFF3H,0FFFAH,0FFFDH
  406.     dw    0FFFFH
  407.  
  408. sndDelay    endp
  409.  
  410. cseg    ends
  411.     end
  412.